home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / intrvl.arc / INTRVL2.TBK (.txt) next >
Asymetrix ToolBook File  |  1990-06-30  |  73KB  |  890 lines
  1. firstInterval
  2. 30 days will be:Message
  3. firstIntervalResult
  4. Monday, July 30, 19901990, 199090
  5. secondInterval
  6. 45 days will be:Message
  7. secondIntervalResult
  8. Tuesday, August 14, 19900990
  9. thirdInterval
  10. 90 days will be:ldMessage
  11. thirdIntervalResult
  12. Friday, September 28, 199000
  13. firstDate
  14. June 30,1990 1990
  15. getUserDate
  16. 4beginningDate,returnDate
  17. "m/d/yy"
  18. Count From (m/d/y)"
  19. "firstDate"
  20. %"M d, y"
  21. calculateAndReport 
  22. rightbuttonUp
  23. "Allows user 
  24. r"&&\
  25. project 
  26.  should be entered 
  27. %m/d/y." \
  28. "helpText"
  29. displayHelp 
  30. B"helpButton"
  31. buttonup
  32. rightbuttonUp
  33. buttonup
  34. m/d/yy
  35. Date to Count From (m/d/y)
  36. firstDate
  37. firstDate
  38. M d, y
  39. seconds
  40. o=!calculateAndReport
  41. beginningDate
  42. returnDate
  43. rightbuttonUp
  44. Allows user to select the date
  45. to project from.  Date should be entered as m/d/y.
  46. helpText
  47. displayHelp
  48. helpButton
  49. New Date
  50. newInterval
  51. --delcare 
  52. 4intervalChange
  53. 4intervalOne, intervalTwo, intervalThree
  54. input
  55. < First Interval To:" 
  56. intervalCheck
  57. y Second 
  58.  Third 
  59. --adjust report
  60. fillReportStrings 
  61. calculateAndReport 
  62.  > 999 
  63. too large.
  64. xexceed"&&\
  65. "999.
  66. Please begin 
  67. B"getUserDate" 
  68. rightbuttonUp
  69. "Allows user 
  70. selecte the"&&\
  71. "intervals 
  72. project 
  73. resets 
  74. "projections.
  75. - may 
  76.  999 days." \
  77. "helpText"
  78. displayHelp 
  79. B"helpButton"
  80. tonUp
  81. intervalCheck
  82. buttonUp
  83. rightbuttonUp
  84. buttonUp
  85. Change First Interval To:
  86. =intervalCheck
  87. Change Second Interval To:
  88. =intervalCheck
  89. Change Third Interval To:
  90. =intervalCheck
  91. oS$fillReportStrings
  92. o=!calculateAndReport
  93. intervalOne
  94. intervalTwo
  95. intervalThree
  96. intervalChange
  97. intervalCheck
  98. cancel
  99. Interval is too large.  May not exceed
  100. 999.  Please begin again
  101. buttonUp
  102. getUserDate
  103. intervalChange
  104. rightbuttonUp
  105. Allows user to selecte the
  106. intervals to project and resets the
  107. projections.  No interval may exceed 999 days.
  108. helpText
  109. displayHelp
  110. helpButton
  111. Change Interval
  112. restoration
  113. initializeBook 
  114. rightbuttonUp
  115. "Replaces 
  116. user selected dates"&&\
  117. intervals 
  118. ] defaults." \
  119. "helpText"
  120. displayHelp 
  121. B"helpButton"
  122. buttonUp
  123. rightbuttonUp
  124. buttonUp
  125. vinitializeBook
  126. rightbuttonUp
  127. Replaces any user selected dates
  128. and intervals to the initial defaults.
  129. helpText
  130. displayHelp
  131. helpButton
  132. Restore Default
  133. exitButton
  134. "logoPage"
  135. '"curtainPanelTwo" 
  136. buttonUp
  137. buttonUp
  138. logoPage
  139. background
  140. buttonUp
  141. curtainPanelTwo
  142. helpButton
  143. "Click the 
  144. mouse 
  145. view a help screen"&&\
  146. "like 
  147.  fades 
  148. "helpText"
  149. displayHelp
  150. "helpGroup"
  151. buttonUp
  152. displayHelp
  153. buttonUp
  154. Click the right mouse button on any
  155. command button to view a help screen
  156. like this.  The help screen fades in 5 seconds.
  157. helpText
  158. displayHelp
  159. displayHelp
  160. helpGroup
  161. helpGroup
  162. helpGroup
  163. helpText
  164. Click the right mouse button on any command button to view a help screen like this.  The help screen fades in 5 seconds.
  165. "logoPage"
  166. '"curtainPanelTwo" 
  167. buttonUp
  168. buttonUp
  169. logoPage
  170. background
  171. buttonUp
  172. curtainPanelTwo
  173. "firstIntervalResult" 
  174. "secondIntervalResult" 
  175. "thirdIntervalResult" 
  176. , d, m, y
  177. holdingDate
  178. # + (
  179. *(24*60*60))
  180. dateToGet
  181. %"M d, y"
  182. %"d, m, y"
  183. weekday(d, m, y)&", "&holdingdate 
  184. returndate
  185. "M d, y"
  186. weekDay d, m, y
  187. 4leapyear,d, m, y
  188. Zmfactor, cfactor
  189. Zday1, yr
  190. k4 = 0 
  191. k100 <> 0) 
  192. k400 = 0)
  193. "034025036146"
  194. "144025036146"
  195. y >= 1900 
  196. y <= 1999
  197. y >= 1700 
  198. y <= 1799
  199. y >= 1800 
  200. y <= 1899
  201. y >= 2000 
  202. y <= 2099
  203. y >= 2100 
  204. y <= 2199
  205. ((yr + (yr 
  206. y4) + 
  207.  + d + 
  208. ) + 2) 
  209. dayOrdinal
  210. "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,"
  211. dayWord
  212. dayword
  213. 10,10,495,300
  214. initializeStartingDate
  215. initializeIntervals
  216. initializeBook
  217. fillReportStrings
  218. calculateAndReport
  219. enterBook
  220. author
  221. reader
  222. tedDate
  223. projectedDate
  224. weekDay
  225. enterBook
  226. vinitializeBook
  227. initializeBook
  228. initializeStartingDate
  229. FjinitializeIntervals
  230. S$fillReportStrings
  231. =!calculateAndReport
  232. fieldMessage
  233. beginningDate
  234. returnDate
  235. intervalOne
  236. intervalTwo
  237. intervalThree
  238. initializeStartingDate
  239. M d,y
  240. firstDate
  241. beginningDate
  242. initializeIntervals
  243.  days will be:
  244. fieldMessage
  245. returnDate
  246. intervalOne
  247. intervalTwo
  248. intervalThree
  249. fillReportStrings
  250. firstInterval
  251. secondInterval
  252. thirdInterval
  253. fieldMessage
  254. returnDate
  255. intervalOne
  256. intervalTwo
  257. intervalThree
  258. calculateAndReport
  259. projectedDate
  260. firstIntervalResult
  261. projectedDate
  262. secondIntervalResult
  263. projectedDate
  264. thirdIntervalResult
  265. intervalSent
  266. fieldMessage
  267. beginningDate
  268. returnDate
  269. intervalOne
  270. intervalTwo
  271. intervalThree
  272. projectedDate
  273. seconds
  274. seconds
  275. M d, y
  276. d, m, y
  277. weekday
  278. holdingdate
  279. returndate
  280. M d, y
  281. dateToGet
  282. holdingDate
  283. returnDate
  284. intervalSent
  285. beginningDate
  286. weekDay
  287. 034025036146
  288. 144025036146
  289. Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,
  290. dayword
  291. dayWord
  292. dayOrdinal
  293. mfactor
  294. cfactor
  295. leapyear
  296. author
  297. author
  298. reader
  299. reader
  300. INTERVAL
  301. Starting Date Is:
  302. firstInterval
  303. 30 days will be:Message
  304. firstIntervalResult
  305. Monday, July 30, 19901990, 199090
  306. secondInterval
  307. 45 days will be:Message
  308. secondIntervalResult
  309. Tuesday, August 14, 19900990
  310. thirdInterval
  311. 90 days will be:ldMessage
  312. thirdIntervalResult
  313. Friday, September 28, 199000
  314. firstDate
  315. June 30,1990 1990
  316. getUserDate
  317. 4beginningDate,returnDate
  318. "m/d/yy"
  319. Count From (m/d/y)"
  320. "firstDate"
  321. %"M d, y"
  322. calculateAndReport 
  323. rightbuttonUp
  324. "Allows user 
  325. r"&&\
  326. project 
  327.  should be entered 
  328. %m/d/y." \
  329. "helpText"
  330. displayHelp 
  331. B"helpButton"
  332. buttonup
  333. rightbuttonUp
  334. buttonup
  335. m/d/yy
  336. Date to Count From (m/d/y)
  337. firstDate
  338. firstDate
  339. M d, y
  340. seconds
  341. o=!calculateAndReport
  342. beginningDate
  343. returnDate
  344. rightbuttonUp
  345. Allows user to select the date
  346. to project from.  Date should be entered as m/d/y.
  347. helpText
  348. displayHelp
  349. helpButton
  350. New Date
  351. newInterval
  352. --delcare 
  353. 4intervalChange
  354. 4intervalOne, intervalTwo, intervalThree
  355. input
  356. < First Interval To:" 
  357. intervalCheck
  358. y Second 
  359.  Third 
  360. --adjust report
  361. fillReportStrings 
  362. calculateAndReport 
  363.  > 999 
  364. too large.
  365. xexceed"&&\
  366. "999.
  367. Please begin 
  368. B"getUserDate" 
  369. rightbuttonUp
  370. "Allows user 
  371. selecte the"&&\
  372. "intervals 
  373. project 
  374. resets 
  375. "projections.
  376. - may 
  377.  999 days." \
  378. "helpText"
  379. displayHelp 
  380. B"helpButton"
  381. tonUp
  382. intervalCheck
  383. buttonUp
  384. rightbuttonUp
  385. buttonUp
  386. Change First Interval To:
  387. =intervalCheck
  388. Change Second Interval To:
  389. =intervalCheck
  390. Change Third Interval To:
  391. =intervalCheck
  392. oS$fillReportStrings
  393. o=!calculateAndReport
  394. intervalOne
  395. intervalTwo
  396. intervalThree
  397. intervalChange
  398. intervalCheck
  399. cancel
  400. Interval is too large.  May not exceed
  401. 999.  Please begin again
  402. buttonUp
  403. getUserDate
  404. intervalChange
  405. rightbuttonUp
  406. Allows user to selecte the
  407. intervals to project and resets the
  408. projections.  No interval may exceed 999 days.
  409. helpText
  410. displayHelp
  411. helpButton
  412. Change Interval
  413. restoration
  414. initializeBook 
  415. rightbuttonUp
  416. "Replaces 
  417. user selected dates"&&\
  418. intervals 
  419. ] defaults." \
  420. "helpText"
  421. displayHelp 
  422. B"helpButton"
  423. buttonUp
  424. rightbuttonUp
  425. buttonUp
  426. vinitializeBook
  427. rightbuttonUp
  428. Replaces any user selected dates
  429. and intervals to the initial defaults.
  430. helpText
  431. displayHelp
  432. helpButton
  433. Restore Default
  434. exitButton
  435. "logoPage"
  436. '"curtainPanelTwo" 
  437. buttonUp
  438. buttonUp
  439. logoPage
  440. background
  441. buttonUp
  442. curtainPanelTwo
  443. helpButton
  444. "Click the 
  445. mouse 
  446. view a help screen"&&\
  447. "like 
  448.  fades 
  449. "helpText"
  450. displayHelp
  451. "helpGroup"
  452. buttonUp
  453. displayHelp
  454. buttonUp
  455. Click the right mouse button on any
  456. command button to view a help screen
  457. like this.  The help screen fades in 5 seconds.
  458. helpText
  459. displayHelp
  460. displayHelp
  461. helpGroup
  462. helpGroup
  463. helpGroup
  464. helpText
  465. Click the right mouse button on any command button to view a help screen like this.  The help screen fades in 5 seconds.
  466. Data=E:\DYNACOMM\D
  467. stainedGlassBackground
  468. stainedGlass
  469. :PHYSSIZE
  470. ************
  471. ************
  472. ************
  473. ************
  474. ************
  475. ************
  476. ************
  477. ************
  478. ************
  479. ]]]]]]]
  480. ]]]]]]]
  481. ]]]]]]]
  482. ]]]]]]]
  483. ]]]]]]]
  484. ]]]]]]]
  485. ]]]]]]]
  486. ]]]]]]]
  487. ]]]]]]]
  488. ]]]]]]]
  489. ]]]]]]]
  490. ]]]]]]]
  491. ]]]]]]]
  492. ]]]]]]]
  493. ]]]]]]]
  494. ]]]]]]]
  495. ]]]]]]]
  496. glassTinting
  497. curtainPanelTwo
  498. "logoPage"
  499. Send Background
  500. Select PaintObject "curtainPanelTwo" 
  501. 2920 
  502. ci < 6
  503. Move the 
  504. x, 690
  505. '"curtainPanelOne" 
  506. ci < 6
  507. x, 690
  508. "glassTinting"
  509. "sunRays"
  510. "centralRay"
  511. rightButtonup 
  512. /"stainedGlassBackground"
  513. 2920,690
  514. 3570, 690
  515. buttonUp
  516. rightButtonup
  517. buttonUp
  518. logoPage
  519. Background
  520. curtainPanelTwo
  521. curtainPanelOne
  522. glassTinting
  523. sunRays
  524. centralRay
  525. prightButtonup
  526. curtainPanelTwo
  527. stainedGlassBackground
  528. rightButtonup
  529. centralRay
  530. stainedGlassBackground
  531. sunRays
  532. stainedGlassBackground
  533. glassTinting
  534. stainedGlassBackground
  535. curtainPanelTwo
  536. stainedGlassBackground
  537. curtainPanelOne
  538. stainedGlassBackground
  539. :PHYSSIZE
  540. curtainPanelOne
  541. --Send Background
  542. --Select PaintObject "curtainPanelOne" 
  543. --Move the 
  544. 3585, 690
  545. ):PHYSSIZE
  546. sunRays
  547. centralRay
  548. logoPage
  549. :PHYSSIZE
  550. ************
  551. ************
  552. ************
  553. ************
  554. ************
  555. ************
  556. ************
  557. ************
  558. ************
  559. ]]]]]]]
  560. ]]]]]]]
  561. ]]]]]]]
  562. ]]]]]]]
  563. ]]]]]]]
  564. ]]]]]]]
  565. ]]]]]]]
  566. ]]]]]]]
  567. ]]]]]]]
  568. ]]]]]]]
  569. ]]]]]]]
  570. ]]]]]]]
  571. ]]]]]]]
  572. ]]]]]]]
  573. ]]]]]]]
  574. ]]]]]]]
  575. ]]]]]]]
  576. :PHYSSIZE
  577. b):PHYSSIZE
  578. @:PHYSSIZE
  579. O:PHYSSIZE
  580. logoPage
  581. stainedGlassBackground
  582. "l .b`aR
  583. System
  584. Tms Rmn
  585. `D|D|
  586. Tms Rmn
  587. `D|D|
  588. 4returnDate,intervalOne,intervalTwo,intervalThree
  589. 4fieldMessage,beginningDate
  590. 10,10,495,340
  591. initializeStartingDate
  592. initializeIntervals
  593. fillReportStrings
  594. calculateAndReport
  595. c starting 
  596. "M d,y"
  597. "firstDate" 
  598.  intervals
  599. " days will be:"
  600. \ fields
  601. "firstInterval" 
  602. "secondInterval" 
  603. "thirdInterval" 
  604. projected 
  605. place 
  606. intervalSent
  607. projectedDate(
  608. "firstIntervalResult" 
  609. "secondIntervalResult" 
  610. "thirdIntervalResult" 
  611. , d, m, y
  612. holdingDate
  613. # + (
  614. *(24*60*60))
  615. dateToGet
  616. %"M d, y"
  617. %"d, m, y"
  618. weekday(d, m, y)&", "&holdingdate 
  619. returndate
  620. "M d, y"
  621. weekDay d, m, y
  622. 4leapyear,d, m, y
  623. Zmfactor, cfactor
  624. Zday1, yr
  625. k4 = 0 
  626. k100 <> 0) 
  627. k400 = 0)
  628. "034025036146"
  629. "144025036146"
  630. y >= 1900 
  631. y <= 1999
  632. y >= 1700 
  633. y <= 1799
  634. y >= 1800 
  635. y <= 1899
  636. y >= 2000 
  637. y <= 2099
  638. y >= 2100 
  639. y <= 2199
  640. ((yr + (yr 
  641. y4) + 
  642.  + d + 
  643. ) + 2) 
  644. dayOrdinal
  645. "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,"
  646. dayWord
  647. dayword
  648. ializeStartingDate
  649. enterBook
  650. initializeIntervals
  651. fillReportStrings
  652. initializeStartingDate
  653. calculateAndReport
  654. tedDate
  655. projectedDate
  656. weekDay
  657. enterBook
  658. initializeStartingDate
  659. FjinitializeIntervals
  660. S$fillReportStrings
  661. =!calculateAndReport
  662. fieldMessage
  663. beginningDate
  664. returnDate
  665. intervalOne
  666. intervalTwo
  667. intervalThree
  668. initializeStartingDate
  669. M d,y
  670. firstDate
  671. beginningDate
  672. initializeIntervals
  673.  days will be:
  674. fieldMessage
  675. returnDate
  676. intervalOne
  677. intervalTwo
  678. intervalThree
  679. fillReportStrings
  680. firstInterval
  681. secondInterval
  682. thirdInterval
  683. fieldMessage
  684. returnDate
  685. intervalOne
  686. intervalTwo
  687. intervalThree
  688. calculateAndReport
  689. projectedDate
  690. firstIntervalResult
  691. projectedDate
  692. secondIntervalResult
  693. projectedDate
  694. thirdIntervalResult
  695. intervalSent
  696. fieldMessage
  697. beginningDate
  698. returnDate
  699. intervalOne
  700. intervalTwo
  701. intervalThree
  702. projectedDate
  703. seconds
  704. seconds
  705. M d, y
  706. d, m, y
  707. weekday
  708. holdingdate
  709. returndate
  710. M d, y
  711. dateToGet
  712. holdingDate
  713. returnDate
  714. intervalSent
  715. beginningDate
  716. weekDay
  717. 034025036146
  718. 144025036146
  719. Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,
  720. dayword
  721. dayWord
  722. dayOrdinal
  723. mfactor
  724. cfactor
  725. leapyear
  726. Stained Glass Windows
  727. entry 
  728. 10,10,495,300
  729. --initialize 
  730. initializeBook
  731. --declare 
  732. 4returnDate,intervalOne,intervalTwo,intervalThree
  733. 4fieldMessage,beginningDate
  734. --call primary routines
  735. initializeStartingDate
  736. initializeIntervals
  737. fillReportStrings
  738. calculateAndReport
  739. starting 
  740. "M d,y"
  741. "firstDate" 
  742. intervals
  743. " days will be:"
  744. [ fields
  745. "firstInterval" 
  746. "secondInterval" 
  747. "thirdInterval" 
  748. projected 
  749. place 
  750. intervalSent
  751. projectedDate(
  752. "firstIntervalResult" 
  753. "secondIntervalResult" 
  754. "thirdIntervalResult" 
  755. , d, m, y
  756. holdingDate
  757. # + (
  758. *(24*60*60))
  759. dateToGet
  760. %"M d, y"
  761. %"d, m, y"
  762. weekday(d, m, y)&", "&holdingdate 
  763. returndate
  764. "M d, y"
  765. weekDay d, m, y
  766. 4leapyear,d, m, y
  767. Zmfactor, cfactor
  768. Zday1, yr
  769. k4 = 0 
  770. k100 <> 0) 
  771. k400 = 0)
  772. "034025036146"
  773. "144025036146"
  774. y >= 1900 
  775. y <= 1999
  776. y >= 1700 
  777. y <= 1799
  778. y >= 1800 
  779. y <= 1899
  780. y >= 2000 
  781. y <= 2099
  782. y >= 2100 
  783. y <= 2199
  784. ((yr + (yr 
  785. y4) + 
  786.  + d + 
  787. ) + 2) 
  788. dayOrdinal
  789. "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,"
  790. dayWord
  791. dayword
  792. ("Please Identity 
  793. Author Access:"
  794. replyText 
  795. x"kappasigma" 
  796. "Sorry.
  797. <Level 
  798. Restricted."
  799. 10,10,495,300
  800. initializeStartingDate
  801. initializeIntervals
  802. initializeBook
  803. fillReportStrings
  804. calculateAndReport
  805. enterBook
  806. author
  807. reader
  808. tedDate
  809. projectedDate
  810. weekDay
  811. enterBook
  812. vinitializeBook
  813. initializeBook
  814. initializeStartingDate
  815. FjinitializeIntervals
  816. S$fillReportStrings
  817. =!calculateAndReport
  818. fieldMessage
  819. beginningDate
  820. returnDate
  821. intervalOne
  822. intervalTwo
  823. intervalThree
  824. initializeStartingDate
  825. M d,y
  826. firstDate
  827. beginningDate
  828. initializeIntervals
  829.  days will be:
  830. fieldMessage
  831. returnDate
  832. intervalOne
  833. intervalTwo
  834. intervalThree
  835. fillReportStrings
  836. firstInterval
  837. secondInterval
  838. thirdInterval
  839. fieldMessage
  840. returnDate
  841. intervalOne
  842. intervalTwo
  843. intervalThree
  844. calculateAndReport
  845. projectedDate
  846. firstIntervalResult
  847. projectedDate
  848. secondIntervalResult
  849. projectedDate
  850. thirdIntervalResult
  851. intervalSent
  852. fieldMessage
  853. beginningDate
  854. returnDate
  855. intervalOne
  856. intervalTwo
  857. intervalThree
  858. projectedDate
  859. seconds
  860. seconds
  861. M d, y
  862. d, m, y
  863. weekday
  864. holdingdate
  865. returndate
  866. M d, y
  867. dateToGet
  868. holdingDate
  869. returnDate
  870. intervalSent
  871. beginningDate
  872. weekDay
  873. 034025036146
  874. 144025036146
  875. Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,
  876. dayword
  877. dayWord
  878. dayOrdinal
  879. mfactor
  880. cfactor
  881. leapyear
  882. author
  883. Please Identity for Author Access:
  884. kappasigma
  885. Sorry.  Author Level is Restricted.
  886. author
  887. replyText
  888. reader
  889. reader
  890.